home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
sort2.zip
/
LCASE.FUN
< prev
next >
Wrap
Text File
|
1993-01-04
|
346b
|
9 lines
function lcase(instring:string):string;
{ returns a string with all the uppercase letters set to lowercase. }
{ Copyright 1988,1989, by J. W. Rider }
var i: integer;
begin for i:=1 to length(instring) do if instring[i] in ['A'..'Z']
then instring[i]:=chr(ord(instring[i])-ord('A')+ord('a'));
lcase:=instring; end; { function lcase }